class APP
feature
    a() : ARRAY[STRING]
    do
        Result:=<< "print1 %N","print2 %N","print3 %N" >>
    end
    
    b( a : ARRAY[STRING])
    local
        i : INTEGER
     do
        from i:=0
        until   i=a.count
        loop
            std_output.put_string(a[i])
            i:=i+1
        end
     end
     
     INIT
     do
        Current.b(Current.a)
     end
end